home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.4 Applications 1997 August / SGI IRIX 6.4 Applications 1997 August.iso / dist / mmailp.idb / usr / lib / Zmail / mp / mp.pro.alt.ps.z / mp.pro.alt.ps
Encoding:
Text File  |  1997-01-22  |  2.6 KB  |  113 lines
  1. %!PS-Adobe-1.0
  2. %%Creator: Steve Holden
  3. %%Modified: Rich Burridge
  4. %%Title: @(#)mp.pro.alt.ps 1.5 92/02/17
  5. %%CreationDate: see above
  6. %%PageLength 60
  7. %%LineLength 80
  8. %%DocumentFonts: Times-Bold Times-Roman Courier
  9. %%Pages: (atend)
  10. %%EndComments
  11.  
  12. /FontSize 9 def
  13.  
  14. /font1d /Times-Bold           reencodeISO
  15. /font2d /Times-Roman          reencodeISO
  16. /CourierISO /Courier          reencodeISO
  17. /fontHd /Helvetica-BoldOblique        reencodeISO
  18. /fontH2 /Helvetica-BoldOblique        reencodeISO
  19. /fontNd /Times-Bold           reencodeISO
  20. /font3d backspacefont
  21.  
  22. /BoldFont      { /font1d findfont FontSize scalefont setfont } def
  23. /pf            { /font2d findfont FontSize scalefont setfont } def
  24. /sf            { /font3d findfont FontSize scalefont setfont } def
  25. /fontH         { /fontHd findfont 14 scalefont setfont } def
  26. /fontD         { /fontH2 findfont 10 scalefont setfont } def
  27. /fontN         { /fontNd findfont 12 scalefont setfont } def
  28.  
  29. /graybox    % x1 y1 x2 y2 graybox --
  30. {
  31.     newpath
  32.       4 -1 roll 2 copy            % y2 x1
  33.       10 sub exch moveto
  34.       4 -1 roll 2 copy            % x1 y1
  35.       10 180 270 arc
  36.       4 -1 roll 1 copy 3 -1 roll    % x2 y1
  37.       10 270 0 arc
  38.       3 -1 roll 1 copy 3 1 roll        % x1 y2 x2 y2
  39.       10 0 90 arc
  40.       10 90 180 arc
  41.     closepath
  42.     0.75 setgray fill
  43. } def
  44.  
  45. /endpage        % page_number endpage --
  46. {
  47.   pop                   % unused
  48.   PageSave restore      % restore *always* before showpage
  49.   showpage        % display it
  50. } def
  51.  
  52. /endcol            % page_number col_number endcol --
  53. {
  54.   pop            % get rid of col_number
  55.   gsave
  56.     fontH
  57.     leftedge 50 add topedge 56 sub    % bottom lt corner
  58.     rightedge 50 sub topedge 36 sub    % top rt corner
  59.     graybox
  60.     0 setgray stroke
  61.     leftedge 50 add topedge 52 sub moveto
  62.     MailFor show
  63.     User show
  64.     fontD
  65.     rightedge 50 sub TimeNow stringwidth pop sub
  66.     topedge 52 sub moveto TimeNow show
  67.     fontH
  68.     leftedge 50 add bottomedge 50 add    % bottom lt corner
  69.     rightedge 50 sub bottomedge 70 add    % top rt corner
  70.     graybox
  71.     0 setgray
  72.     leftedge 50 add bottomedge 54 add moveto Subject show
  73.     % page number of the left corner
  74.     dup stringwidth
  75.        bottomedge 54 add exch sub        % y-centered
  76.        exch 2 div rightedge 54 sub exch sub    % x-centered
  77.        exch moveto show
  78.   grestore
  79. } def
  80.  
  81. /newpage    % page_number newpage --
  82. {
  83.   pop        % pageno
  84.   /PageSave save def
  85.   LandscapeMode {setlandscape} if
  86.   /lct 0 def
  87.   /ypos topedge 92 sub def
  88.   /xpos leftedge 50 add def
  89.   xpos ypos moveto
  90.   sf
  91. } def
  92.  
  93. /setlandscape
  94. {
  95.   612 0 translate
  96.   90 rotate
  97.   /FontSize 7 def
  98. } def
  99.  
  100. /Landscape
  101. {
  102.   /LandscapeMode true def
  103.   /rightedge fullheight def
  104.   /topedge fullwidth def
  105. } def
  106.  
  107. /showline
  108. {
  109.   show
  110.   /ypos ypos FontSize sub def
  111.   xpos ypos moveto
  112. } def
  113.